home *** CD-ROM | disk | FTP | other *** search
/ Aminet 43 / Aminet 43 (2001)(GTI - Schatztruhe)[!][Jun 2001].iso / Aminet / text / edit / QuickNote.lha / QuickNote / QuickNote-Install < prev    next >
Text File  |  2001-03-12  |  3KB  |  98 lines
  1. ; $VER: QuickNote-Install v1.4a (12.03.01)
  2. ; Installer script made by Stefan Blixth, OnyxSoft
  3.  
  4. (set #welcome "\nWelcome to QuickNote 1.4a installer.\n© 1999-2001 Stefan Blixth, OnyxSoft.\n\nCheck our homepage for more stuff ;-)\n\nwww.onyxsoft.nu\n")
  5. (set #endmsgs "QuickNote 1.4a has now been installed on your system.\n\nDon't forget to check regular on our homepage for updates\nand other news about our software!")
  6.  
  7. (message #welcome)
  8. (welcome)
  9. (complete 0)
  10.  
  11. ; - create destination dir
  12.  
  13. (set destination
  14.   (askdir (prompt "Please select the destination directory for QuickNote.\nA sub-directory \"QuickNote\" will be created.")
  15.     (default @default-dest)
  16.     (help @askdir-help)
  17.   )
  18. )
  19.  
  20. (set @default-dest destination)
  21.  
  22. (set destination (expandpath destination))
  23. (set destination (tackon destination "QuickNote"))
  24.  
  25. (if (<> 0 (exists destination))
  26. (
  27.   (message "There is an older installation of QuickNote in the same directory.\n\nNotice - It will be overwritten! (and not backed up)\n")
  28.     (run (cat "delete \"" destination "\" >nil:"))
  29.     (run (cat "delete \"" destination ".info\" >nil:"))
  30.   )
  31. )
  32.  
  33. (makedir destination)
  34. (run (cat "copy /QuickNote.info \"" destination ".info\""))
  35.  
  36. (complete 25)
  37.  
  38. ; - copy main files
  39.  
  40. (copyfiles (prompt "Copying ...") (source "QuickNote") (dest destination) (help @copyfiles-help) )
  41. (copyfiles (prompt "Copying ...") (source "QuickNote.info") (dest destination) (help @copyfiles-help) )
  42. (copyfiles (prompt "Copying ...") (source "QuickNote.guide") (dest destination) (help @copyfiles-help) )
  43. (copyfiles (prompt "Copying ...") (source "QuickNote.guide.info") (dest destination) (help @copyfiles-help) )
  44. (copyfiles (prompt "Copying ...") (source "QuickNote.readme") (dest destination) (help @copyfiles-help) )
  45. (copyfiles (prompt "Copying ...") (source "QuickNote.readme.info") (dest destination) (help @copyfiles-help) )
  46.  
  47. (complete 50)
  48.  
  49. ; - copy icons
  50.  
  51. (set choice
  52.   (askchoice
  53.     (prompt "Do you want to install some nice QuickNote-icons by\nStephan Zander, Aldo Bianchi & Luca 'Hexaae' Longone ?")
  54.     (help @askoptions-help)
  55.     (choices "Yes" "No")
  56.     (default 0)
  57.   )
  58. )
  59.  
  60. (if (= 0 choice)
  61.   (
  62.     (makedir (cat destination "/Icons"))
  63.     (copyfiles
  64.       (prompt "Copying...")
  65.       (source "Icons/")
  66.       (pattern "#?")
  67.       (dest (cat destination "/Icons"))
  68.     )
  69.   )
  70. )
  71.  
  72. (complete 75)
  73.  
  74. ; - copy textfield.gadget
  75.  
  76. (set choice
  77.   (askchoice
  78.     (prompt "QuickNote requires textfield.gadget by Mark Thomas\n\nControl if you got it under Sys:Classes/Gadgets/\nIf you do, this is unnecessary to install\n\nWould you like me to install it for you ?\n\n")
  79.     (help @askoptions-help)
  80.     (choices "Yes" "No thanks")
  81.     (default 0)
  82.   )
  83. )
  84.  
  85. (if (= 0 choice)
  86.   (
  87.     (copyfiles
  88.       (prompt "Copying...")
  89.       (source "Classes/")
  90.       (pattern "#?")
  91.       (dest "Sys:Classes/")
  92.     )
  93.   )
  94. )
  95.  
  96. (complete 100)
  97. (message #endmsgs)
  98. (exit)